home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / game / think / marryamp.lha / marryampic / Install < prev    next >
Text File  |  1996-04-26  |  2KB  |  51 lines
  1. ; Marryampic installation script
  2. ; Well, this is the first time I try to write an installation script...
  3.  
  4. ; check kick version
  5. (if (< (/ (getversion) 65536) 37) (abort "Marryampic requires KickStart v2.0 or + to run !"))
  6.  
  7.  
  8. (set target
  9.     (tackon
  10.         (askdir
  11.             (prompt "In which disk or drawer should the drawer called \"Marryampic\" be created?")
  12.             (help
  13.                 "    The Marryampic program and the CardSet 'Animals' will be installed in a new drawer "
  14.                 "called \"Marryampic\".  You are being asked where this new drawer should be created.  "
  15.                 "If you select \"Work:\", for example, then a new drawer named \"Work:Marryampic\" will be created, "
  16.                 "and Marryampic will be installed into this new drawer.\n"
  17.                 "\n"
  18.                 @askdir-help
  19.             )
  20.             (default @default-dest)
  21.         )
  22.         "Marryampic"
  23.     )
  24. )
  25. (makedir target (infos))
  26. (set @default-dest target)
  27.  
  28. (copyfiles
  29.     (prompt "Copying to " target )
  30.     (help @copyfiles-help)
  31.     (source "")
  32.     (dest target)
  33.     (choices "Marryampic" "Docs" "Cards" "Catalogs")
  34.     (infos)
  35. )
  36.  
  37.  
  38. ; Change ToolTypes for best-use with hard-disk
  39. (tooltype
  40.     (dest (cat target "/Marryampic"))
  41.     (settooltype "PreLoad" "No")
  42.     (settooltype "DirectToDisk" "No")        
  43. )
  44.  
  45. (message  "Don't forget to adjust the ToolTypes\n"
  46.           "in the icon of Marryampic to your\n"
  47.           "convenience.\n"
  48.           "So, read the docs!\n"
  49.           "and have fun to play..."
  50. )        
  51.